Application.ExecuteCommand("Filter")
SelectionFilterDlg.Nothing.Click()
SelectionFilterDlg.SelectionObjectsDlg.Edges = true
SelectionFilterDlg.SelectionObjectsDlg.Corners = true
SelectionFilterDlg.SelectionObjectsDlg.Shapes = true
SelectionFilterDlg.SelectionObjectsDlg.TextLabels = true
SelectionFilterDlg.SelectionObjectsDlg.TraceCorners = true
SelectionFilterDlg.Ok.Click()

Application.StatusBarText = "Select Drawing Objects"
'ApplicationMode=2 ' drawing mode
dim ws : set ws = CreateObject("WScript.Shell")
dim varName : varName = "ApplicationMode"
dim varValue : varValue = 2 
ws.RegWrite "HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName, varValue, "REG_EXPAND_SZ"
set ws = nothing